3 POKE56,152:CLR:POKE787,0 5 DV=PEEK(186):IFDV<8THENDV=8 10 POKE53281,0:POKE53280,0:PRINT"[147]" 12 GOSUB60000 15 REM GOTO30 20 SYS57812"SW FONT",DV,0:POKE780,0:POKE781,0:POKE782,200:SYS65493 25 SYS57812"COPYMEM.O",DV,0:POKE780,0:POKE781,60:POKE782,3:SYS65493 26 POKE53280,6:POKE53281,6:BB=6:SYS828,52224,51200,8 27 DV=PEEK(186):IFDV<8THENDV=8 28 QP=256 30 POKE56576,4:POKE53272,2:POKE648,192:POKE53265,27 40 PRINT"[154][147]":DIMSN(46),SL(24) 45 W$="@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" 50 FORX=1TO46:READSN(X):NEXT 60 DATA27,7,23,11,30,13,29,14,14,27,13,7,27,11,30,7,13,23,30,13,23,14,11,11,14 70 DATA23,13,30,23,13,7,30,11,27,7,13,27,14,14,29,13,30,11,23,7,27 80 FORX=1TO24:READSL(X):NEXT 90 DATA27,7,23,11,11,27,7,7,7,23,11,11,11,11,23,7,7,7,27,11,11,23,7,27 100 FORX=1TO6:READMN$(X):NEXT 110 DATA"1. LEVEL 1 PUZZLE","2. LEVEL 2 PUZZLE","3. SOLUTION TO LEVEL 1" 120 DATA"4. SOLUTION TO LEVEL 2","5. INSTRUCTIONS","6. QUIT" 130 BK$="[171][179][177][178][157][157][157][157][176][174][172][187][157][157][157][157][173][189][188][190][145][145]" 140 CL$(0)="[158]":CL$(1)="[144]":CL$(2)="" 150 IFPEEK(787)=13THENSYS828,152*QP,49152,1000:SYS828,156*QP,55296,1000:GOTO180 152 PRINT"[147][150]":GOSUB2000 155 XX=7:YY=3:WW=24:DD=10:GOSUB3000 157 XX=5:YY=18:WW=28:DD=1:GOSUB3000 158 POKE214,19:PRINT:PRINTTAB(7)"T [158]- TILE B [158]- BACKGROUND" 160 POKE214,5:PRINT:PRINTTAB(12)"_[195] SWITCH 'EM [195]^" 165 PRINTTAB(13)"[155]BY BRIAN BOESE" 170 PRINT"[158]":FORI=1TO6:PRINTTAB(9)MN$(I):NEXT 175 SYS828,49152,152*QP,1000:SYS828,55296,156*QP,1000:POKE787,13 180 GM=1 220 POKE214,7+GM:PRINT:PRINT""TAB(9)MN$(GM):GOSUB1670 230 IFJS=15ORA$=CHR$(13)THEN310 240 IFA$>="1"ANDA$<="6"THENGM=VAL(A$):GOTO310 250 IFJS=29THENA$="" 260 IFJS=30THENA$="[145]" 270 PRINT"":POKE214,7+GM:PRINT:PRINTTAB(9)"[158]"MN$(GM) 280 IFA$=""THENGM=GM+1:IFGM=7THENGM=1 290 IFA$="[145]"THENGM=GM-1:IFGM=0THENGM=6 300 GOTO220 310 IFGM=6THEN9000 320 IFGM=5THENGOSUB1470:GOTO150 330 ONGMGOSUB980,350,980,350 340 GOTO150 350 PRINT"[147][150]":GOSUB2000 352 XX=1:YY=16:WW=12:DD=4:GOSUB3000 353 PRINT"[145][145][145][145][145][145]SWITCH 'EM" 354 PRINT"[155]LEVEL 2" 355 PRINT"I[158]-UP M[158]-DOWN" 356 PRINT"J[158]-LFT K[158]-RGHT" 357 XX=26:YY=2:WW=9:DD=2:GOSUB3000 360 PRINT""TAB(9)"[144][166][163][163][163][163][163][163][163][163][163][163][163][163][220]" 365 FORX=1TO5:PRINTTAB(9)"[144][165] [167][129]@":NEXT 370 PRINTTAB(9)"[144][165] [163][163][163][163][163][163][163][220]" 380 FORX=1TO3:PRINTTAB(9)"[144][165] [167][129]@":NEXT 390 PRINTTAB(9)"[144]\[164][164][164][164][164][164][164] [167][129]@" 395 PRINTTAB(10)"@@@@@@@[145]" 400 FORX=1TO5:PRINTTAB(17)"[144][165] [167][129]@":NEXT 402 PRINTTAB(17)"[144]\[164][164][164][164][164][164][164][164][164][164][164][164][219][129]@" 403 PRINTTAB(18)"[129]@@@@@@@@@@@@@@" 405 N=0:B$="" 410 PRINT""TAB(27)"[155]SOLN: 46":PRINTTAB(27)"[155]MOVES: 0" 420 FORX=0TO2:FORY=0TO2:GD(X,Y)=1:GD(X+2,Y+2)=2:NEXT:NEXT:GD(2,2)=0:BK=12:MV=0 430 GOSUB940 440 IFGM=2THEN490 450 FORM=1TO46:JS=SN(M):GOSUB710:FORTT=1TO100:NEXT:NEXT 460 XX=22:YY=19:WW=11:DD=1:GOSUB3000 465 PRINT"[145][145][145]"TAB(23)"PRESS A KEY" 470 GOSUB1670 480 RETURN 490 GOSUB560:IFTTHEN490 495 IFQTHENQ=0:GOTO550 500 XX=23:YY=18:WW=13:DD=2:GOSUB3000:PRINT"[145][145][145][145][145]" 505 IFB$="Y"THEN550 510 IFN=16THENPRINTTAB(25)"YOU GOT IT!":GOTO530 520 PRINTTAB(24)"YOU'RE STUCK!" 530 PRINTTAB(25)"PRESS A KEY" 540 GOSUB1670 550 RETURN 560 GOSUB1670:IFJS=15THEN560 570 IFA$="Q"THENQ=1:RETURN 630 IFA$="I"THENJS=30 640 IFA$="K"THENJS=23 650 IFA$="M"THENJS=29 660 IFA$="J"THENJS=27 670 IFA$="[201]"THENJS=14 680 IFA$="[203]"THENJS=7 690 IFA$="[205]"THENJS=13 700 IFA$="[202]"THENJS=11 710 DB=1:IF(JSAND16)=0THENDB=2 720 IF(JSAND1)=0THENFM=BK+5*DB:PC=2 730 IF(JSAND2)=0THENFM=BK-5*DB:PC=1 740 IF(JSAND4)=0THENFM=BK+1*DB:PC=2 750 IF(JSAND8)=0THENFM=BK-1*DB:PC=1 760 XT=INT(BK/5):YT=BK-5*XT:XF=INT(FM/5):YF=FM-5*XF 770 IFFM<0ORFM>24THEN560 780 IFGD(XF,YF)=0ORGD(XF,YF)<>PCTHEN560 790 MV=MV+1:GD(XT,YT)=GD(XF,YF):GD(XF,YF)=0:BK=FM:X=YF:Y=XF:GOSUB960 800 X=YT:Y=XT:GOSUB960:T=0:IFXF>0THENIFGD(XF-1,YF)=1THENT=-1 810 IFXF>1THENIFGD(XF-2,YF)=1THENT=-1 820 IFXF<4THENIFGD(XF+1,YF)=2THENT=-1 830 IFXF<3THENIFGD(XF+2,YF)=2THENT=-1 840 IFYF>0THENIFGD(XF,YF-1)=1THENT=-1 850 IFYF>1THENIFGD(XF,YF-2)=1THENT=-1 860 IFYF<4THENIFGD(XF,YF+1)=2THENT=-1 870 IFYF<3THENIFGD(XF,YF+2)=2THENT=-1 880 IFTTHENRETURN 890 FORX=0TO2:FORY=0TO2:IFGD(X,Y)=2THENN=N+1 900 IFGD(X+2,Y+2)=1THENN=N+1 910 NEXT:NEXT 920 IFGD(2,2)>0THENN=N-1 930 RETURN 940 FORY=0TO2:FORX=0TO2:GOSUB960:NEXT:NEXT 950 FORY=2TO4:FORX=2TO4:GOSUB960:NEXT:NEXT:RETURN 960 PRINT"";:FORA=0TOX:PRINT"";:NEXT:FORA=0TOY:PRINT""; 970 NEXT:PRINTCL$(GD(Y,X))BK$:PRINT""TAB(33)MV:RETURN 980 PRINT"[147][150]":GOSUB2000:XX=2:YY=1:WW=20:DD=3:GOSUB3000 985 PRINT""TAB(5)"_[192] SWITCH 'EM [192]^" 987 PRINTTAB(7)"[155]L E V E L 1" 990 GOSUB4000 1000 PRINT"[145][145][145][145][145][145][144][171][179][177][178][171][179][177][178][171][179][177][178][171][179][177][178][158][171][179][177][178][171][179][177][178][171][179][177][178][171][179][177][178][171][179][177][178]" 1010 PRINT"[144][176][174][172][187][176][174][172][187][176][174][172][187][176][174][172][187][158][176][174][172][187][176][174][172][187][176][174][172][187][176][174][172][187][176][174][172][187]" 1020 PRINT"[144][173][189][188][190][173][189][188][190][173][189][188][190][173][189][188][190][158][173][189][188][190][173][189][188][190][173][189][188][190][173][189][188][190][173][189][188][190]" 1030 N=0:B$="" 1035 XX=26:YY=3:WW=9:DD=2:GOSUB3000 1040 PRINT"[155]"TAB(27)"SOLN: 24":PRINTTAB(27)"[155]MOVES: 0" 1045 GOSUB5000 1050 FORX=0TO3:GR(X)=1:GR(X+5)=2:NEXT:GR(4)=0:BK=4:MV=0 1060 IFGM=1THEN1110 1070 FORM=1TO24:JS=SL(M):GOSUB1290:FORTT=1TO200:NEXT:NEXT 1080 GOSUB3000:POKE214,19:PRINT:PRINTTAB(7)"PRESS ANY KEY TO CONTINUE" 1090 GOSUB1670 1100 RETURN 1110 GOSUB1180:IFTTHEN1110 1120 IFQTHENQ=0:GOTO1170 1125 XX=2:YY=16:WW=34:DD=4:GOSUB3000:POKE214,18:PRINT"" 1130 IFN=8THENPRINTTAB(14)"YOU GOT IT!":GOTO1150 1140 PRINTTAB(10)"UH OH, YOU'RE STUCK" 1150 PRINTTAB(7)"PRESS ANY KEY TO CONTINUE" 1160 GOSUB1670 1170 RETURN 1180 GOSUB1670:IFJS=15THEN1180 1190 IFA$="Q"THENQ=1:RETURN 1250 IFA$="K"THENJS=23 1260 IFA$="J"THENJS=27 1270 IFA$="[203]"THENJS=7 1280 IFA$="[202]"THENJS=11 1290 DB=1:IF(JSAND16)=0THENDB=2 1300 IF(JSAND4)=0THENFM=BK+DB:PC=2 1310 IF(JSAND8)=0THENFM=BK-DB:PC=1 1320 XT=BK:XF=FM 1330 IFFM<0ORFM>9THEN1180 1340 IFGR(XF)=0ORGR(XF)<>PCTHEN1180 1350 MV=MV+1:GR(XT)=GR(XF):GR(XF)=0:BK=FM:X=XF:GOSUB1450 1360 X=XT:GOSUB1450:T=0:IFXF>0THENIFGR(XF-1)=1THENT=-1 1370 IFXF>1THENIFGR(XF-2)=1THENT=-1 1380 IFXF<9THENIFGR(XF+1)=2THENT=-1 1390 IFXF<8THENIFGR(XF+2)=2THENT=-1 1400 IFTTHENRETURN 1410 FORX=0TO3:IFGR(X)=2THENN=N+1 1420 IFGR(X+5)=1THENN=N+1 1430 NEXT 1440 RETURN 1450 PRINT"[157][157]";:FORA=0TOX:PRINT"";:NEXT 1460 PRINTCL$(GR(X))BK$:PRINT""TAB(33)MV:RETURN 1470 PRINT"[147]"TAB(5)"_[195] SWITCH 'EM INSTRUCTIONS [195]^" 1480 PRINT"[158]THE OBJECT OF THIS PUZZLE IS TO SWITCH" 1490 PRINT"THE POSITIONS OF THE BLACK STONES WITH" 1500 PRINT"THE WHITE STONES. BLACK STONES MAY ONLY" 1510 PRINT"MOVE DOWN OR TO THE RIGHT, AND WHITE" 1520 PRINT"STONES MAY ONLY MOVE UP OR TO THE LEFT." 1530 PRINT"STONES MOVE ONE AT A TIME INTO THE" 1540 PRINT"EMPTY SPACE, WHICH IS YELLOW." 1550 PRINT"[155] LEVEL 1 PUZZLE LEVEL 2 PUZZLE" 1560 PRINT" [144][209][209][209]" 1570 PRINT" [144][209][209][209]" 1580 PRINT" [144][209][209][209][209][158][209][209][209][209][209] [144][209][209][158][209][209][209]" 1590 PRINT" [209][209][209]" 1600 PRINT" [209][209][209]" 1610 PRINT"[158]CONTROLS: UP[158] - I [158]OR YOU MAY" 1620 PRINT" DOWN [158]- M [158]USE A JOYSTICK" 1630 PRINT" LEFT [158]- J [158]PLUGGED INTO" 1640 PRINT" RIGHT [158]- K [158]PORT 2" 1650 PRINT"HOLD SHIFT OR THE FIREBUTTON TO JUMP." 1660 PRINT"PRESS ANY KEY TO CONTINUE"; 1670 JS=PEEK(56320)AND31:GETA$:IFA$=""ANDJS=31THEN1670 1671 IFA$="Q"THENRUN27 1672 IFA$<>"T"THEN1680 1673 ZZ=ZZ+1:IFZZ>127THENZZ=0 1675 SYS828,52224+8*ZZ,51200,8:GOTO1670 1680 IFA$<>"B"THEN1690 1682 BB=BB+1:IFBB=1ORBB=7ORBB=15THEN1682 1684 IFBB>15THENBB=2 1686 POKE53281,BB:POKE53280,BB 1690 RETURN 2000 PRINT""; 2010 FORI=0TO23:PRINTW$;:NEXT:PRINTLEFT$(W$,39)"[157][148]@[157]@" 2020 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT 2030 RETURN 3000 POKE214,YY:PRINT 3010 PRINTTAB(XX)"[144][166]";:FORII=1TOWW:PRINT"[163]";:NEXT:PRINT"[220]" 3020 FORII=1TODD:PRINTTAB(XX)"[144][165]";:FORJJ=1TOWW:PRINT" ";:NEXT:PRINT"[167][129]@":NEXT 3030 PRINTTAB(XX)"[144]\";:FORII=1TOWW:PRINT"[164]";:NEXT:PRINT"[219][129]@" 3040 PRINTTAB(XX+1)"[129]";:FORII=1TOWW+2:PRINT"@";:NEXT:PRINT 3050 RETURN 4000 POKE214,9:PRINT 4010 PRINT"[150]@[144][166][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][220][129]@"; 4020 FORII=1TO3:PRINT"[150]@[144][165] [167][129]@";:NEXT 4030 PRINT"[150]@[144]\[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][219][129]@"; 4040 PRINT"[150]@@[129]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" 4050 FORII=217TO242:POKEII,PEEK(II)OR128:NEXT 4060 RETURN 5000 XX=2:YY=16:WW=34:DD=4:GOSUB3000 5005 IFGM=3ORGM=4THEN5050 5010 POKE214,17:PRINT 5020 PRINTTAB(10)"J[158] - LEFT K[158] - RIGHT" 5027 PRINTTAB(8)"HOLD DOWN SHIFT[158] TO JUMP" 5030 PRINTTAB(6)" OR USE JOYSTICK IN PORT #2" 5040 PRINTTAB(3)"T - [158]TILE B[158] - BACKGROUND Q[158] - QUIT" 5050 RETURN 9000 PRINT"[147]":POKE648,4:POKE53272,23:PRINT"[147]":POKE56576,23:POKE53265,27 9005 POKE53281,0:POKE53280,0 9010 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15 9020 IFER<>63THENEND 9030 PRINT"[144]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8" 9040 PRINT"RUN" 9050 POKE631,13:POKE632,13:POKE198,2:END 10000 OPEN15,8,15,"S0:SWITCH 'EM":CLOSE15:SAVE"SWITCH 'EM",8:END 60000 PRINT"[147]":Z$=" [152] ":POKE214,10:PRINT 60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT 60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]" 60030 Z$(0)="[211] [215] [201] [212] [195] [200] '[197] [205]":Z$(1)="BY [194]RIAN [194]OESE" 60040 Z$(2)="[214]1.0 ([195]) 1992 BY [211]OFTDISK, [201]NC."+CHR$(13) 60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK 60060 Z$(4)[178]"OF (null)(null)ASC(null)STR$RIGHT$(null)(null) (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$. RIGHT$T IS NOT" 60070 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN." 60080 Z$(6)[178]"(null)EPORT ILLEGAL DISTRIBUTION OF":Z$(7)[178]"THIS PROGRAM BY CALLING" 60090 Z$(8)[178]"1-800-831-2694 OR 1-318-221-8718.":[151]214,12:[153] 60100 [129]I[178]0[164]8:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]